home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / toolboxPackIntf.sim < prev    next >
Encoding:
Text File  |  1989-04-17  |  3.9 KB  |  124 lines  |  [TEXT/MPS ]
  1.  
  2. %    { Package Manager ----------------------------------------------------}
  3.  
  4. %    { These routines are currently in ToolIntf.p }
  5.  
  6. %    { Disk Initialization Package ----------------------------------------}
  7.  
  8. class ToolBoxPackIntf;
  9. begin
  10.  
  11. %    PROCEDURE DILoad;
  12.     external Pascal procedure x="DILoad" is
  13.     PROCEDURE ToolboxDILoad;;
  14.  
  15.  
  16. %    PROCEDURE DIUnload;
  17.     external Pascal procedure x="DIUnload" is
  18.     PROCEDURE ToolboxDIUnload;;
  19.  
  20. %    FUNCTION DIBadMount(where: Point; evtMessage: LONGINT): INTEGER;
  21.     external Pascal procedure x="DIBadMount" is
  22.     short integer procedure ToolboxDIBadMount(where_h, where_v, evtMessage);
  23.         short integer where_h,where_v;
  24.         integer evtMessage;;
  25.  
  26. %    external Pascal procedure x="DIFormat" is
  27. %    FUNCTION DIFormat(drvNum: INTEGER): OSErr;
  28.  
  29. %    external Pascal procedure x=DIVerify" is
  30. %    FUNCTION DIVerify(drvNum: INTEGER): OSErr;
  31.  
  32. %    external Pascal procedure x=DIZero" is
  33. %    FUNCTION DIZero(drvNum: INTEGER; volName: Str255): OSErr;
  34. % ------------------------------------------------------------------
  35. %    ! Standard File Package ----------------------------------------------;
  36. %    SFReply = RECORD
  37. %                good: BOOLEAN; {ignore command if FALSE}
  38. %                copy: BOOLEAN; {not used}
  39. %                fType: OsType; {file type or not used}
  40. %                vRefNum: INTEGER; {volume reference number}
  41. %                version: INTEGER; {file's version number}
  42. %                fName: String[63]; {file name}
  43. %                END; {SFReply}
  44. %    SFTypeList = ARRAY [0..3] OF OsType;
  45.  
  46. short integer
  47.     putDlgID = - 3999, !SFPutFile dialog template ID;
  48.  
  49.     putSave = 1, !save button;
  50.     putCancel = 2, !cancel button;
  51.     putEject = 5, !eject button;
  52.     putDrive = 6, !drive button;
  53.     putName = 7, !editTExt item for file name;
  54.  
  55.     getDlgID = - 4000, !SFGetFile dialog template ID;
  56.  
  57.     getOpen = 1, !open button;
  58.     getCancel = 3, !cancel button;
  59.     getEject = 5, !eject button;
  60.     getDrive = 6, !drive button;
  61.     getNmList = 7, !userItem for file name list;
  62.     getScroll = 8; !userItem for scroll bar;
  63.  
  64.  
  65. %    PROCEDURE SFPutFile(where: Point; prompt: Str255; origName: Str255;
  66. %                        dlgHook: ProcPtr; VAR reply: SFReply);
  67.     external Pascal procedure x="SFPutFile" is
  68.     PROCEDURE ToolboxSFPutFile(where_h, where_v, prompt, origName,
  69.                         dlgHook, reply);
  70.             value prompt, origName; name reply;
  71.             short integer where_h, where_v;
  72.             text prompt, origName;
  73.             integer dlgHook;
  74.             short integer reply;;
  75.  
  76. %    PROCEDURE SFPPutFile(where: Point; prompt: Str255; origName: Str255;
  77. %                         dlgHook: ProcPtr; VAR reply: SFReply; dlgID: INTEGER;
  78. %                         filterProc: ProcPtr);
  79.     external Pascal procedure x="SFPPutFile" is
  80.     PROCEDURE ToolboxSFPPutFile(where_h,where_v, prompt, origName,
  81.                          dlgHook, reply, dlgID, filterProc);
  82.             value prompt, origName; name reply;
  83.             short integer where_h, where_v;
  84.             text prompt, origName;
  85.             integer dlgHook;
  86.             short integer reply;
  87.             short integer dlgId;
  88.             integer filterProc;;
  89.  
  90. %    PROCEDURE SFGetFile(where: Point; prompt: Str255; fileFilter: ProcPtr;
  91. %                        numTypes: INTEGER; typeList: SFTypeList; dlgHook: ProcPtr;
  92. %                        VAR reply: SFReply);
  93.     external Pascal procedure x="SFGetFile" is
  94.     PROCEDURE ToolboxSFGetFile(where_h,where_v, prompt, fileFilter,
  95.                         numTypes, typeList, dlgHook, reply);
  96.                 value prompt, typeList; name reply;
  97.                 short integer where_h, where_v;
  98.                 text prompt;
  99.                 integer fileFilter;
  100.                 short integer numTypes;
  101.                 text typeList;
  102.                 integer dlgHook;
  103.                 short integer reply;;
  104.  
  105.  
  106. %    PROCEDURE SFPGetFile(where: Point; prompt: Str255; fileFilter: ProcPtr;
  107. %                         numTypes: INTEGER; typeList: SFTypeList;
  108. %                         dlgHook: ProcPtr; VAR reply: SFReply; dlgID: INTEGER;
  109. %                         filterProc: ProcPtr);
  110.     external Pascal procedure x="SFPGetFile" is
  111.     PROCEDURE ToolboxSFPGetFile(where_h,where_v, prompt, fileFilter,
  112.                          numTypes, typeList, dlgHook, reply, dlgID, filterProc);
  113.                 value prompt; name reply;
  114.                 short integer where_h, where_v;
  115.                 text prompt;
  116.                 integer fileFilter;
  117.                 short integer numTypes;
  118.                 integer typeList;
  119.                 integer dlgHook;
  120.                 short integer reply;
  121.                 short integer dlgId;
  122.                 integer filterProc;;
  123.                 
  124. end;